home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / online / motor.EXE / MOM1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-10-04  |  2.1 KB  |  69 lines
  1. begin
  2. write('ѥ');
  3. end.
  4.  :text;
  5.    s5,s          :string;
  6.    str2,str1   :string[11];
  7.    STR3,STR4   :STRING[10];
  8.    STR5        :STRING[1];
  9.    STR6        :STRING[6];
  10.    x1,x2,x3,x4,x5    :integer;
  11.    y1,y2,y3,y4,y5,y6,y7,y8       :real;
  12.                begin
  13.                assign(f5,'dosya.dat');reset(f5);readln(f5,s);
  14.                ASSIGN(F3,s+'.F4F');
  15.                ASSIGN(F4,'MOM1.DAT');
  16.                REWRITE(F4);
  17.                RESET(F3);
  18.                x2:=1;
  19.                while not eof(f3) do
  20.                begin;
  21.                     readln(f3,str2);
  22.                    IF STR2=' ELEMENT ID' THEN
  23.                    BEGIN;
  24.                     READLN(F3,STR1);
  25.                     READLN(F3,STR1);
  26.                     readln(f3,x3,y3,y4);
  27.                     READLN(F3,x1,y1,y2);
  28.                     readln(f3,x4,y5,y6);
  29.                     readln(f3,x5,y7,y8);
  30.                     if (x3 = x2) then
  31.                     begin;
  32.                     writeln(f4,x3,' ',y3,' ',y4);
  33.                     reset(f3);
  34.                     x2:=x2+1;
  35.                     end;
  36.                     if  (x1 = x2) then
  37.                     begin;
  38.                     WRITELN(F4,x1,' ',y1,' ',y2);
  39.                     reset(f3);
  40.                     x2:=x2+1;
  41.                     end;
  42.                     if (x4 = x2) then
  43.                     begin;
  44.                     writeln(f4,x4,' ',y5,' ',y6);
  45.                     reset(f3);
  46.                     x2:=x2+1;
  47.                     end;
  48.                     if (x5 = x2) then
  49.                     begin;
  50.                     writeln(f4,x5,' ',y7,' ',y8);
  51.                     reset(f3);
  52.                     x2:=x2+1;
  53.                     end;
  54.  
  55.                     END;
  56.                     end;
  57.                     close(f3);close(f4);
  58.                     END.
  59. uses crt;
  60. var
  61.    f3,f4,f5 :text;
  62.    s5,s          :string;
  63.    str2,str1   :string[11];
  64.    STR3,STR4   :STRING[10];
  65.    STR5        :STRING[1];
  66.    STR6        :STRING[6];
  67.    x1,x2,x3,x4,x5    :integer;
  68.    y1,y2,y3,y4,y5,y6,y7,y8       :real;
  69.